home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / ddmoduls.lha / dd_Modules / dd_devices / dd_timenotifytest.e < prev   
Text File  |  1995-05-04  |  468b  |  23 lines
  1. MODULE 'dos/dos'
  2. MODULE '*dd_timenotify'
  3.  
  4. PROC main() HANDLE
  5.   DEF timenot:PTR TO timenotify
  6.   DEF mask
  7.   NEW timenot.new()
  8.   timenot.request(5,0)
  9.   PrintF('Press CTRL-C or just wait 5 seconds.\n')
  10.   mask:=Wait(SIGBREAKF_CTRL_C OR timenot.signalmask())
  11.   IF mask AND SIGBREAKF_CTRL_C
  12.     PrintF('You breaked me.\n')
  13.   ENDIF
  14.   IF mask AND timenot.signalmask()
  15.     PrintF('5 seconds timeout.\n')
  16.   ENDIF
  17.   END timenot
  18. EXCEPT
  19.   PrintF('exception was raised\n')
  20. ENDPROC
  21.  
  22.  
  23.